home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / sendfile.sc_ / sendfile.bin
Text File  |  1994-04-19  |  889b  |  21 lines
  1. {SENDFILE.ACT}
  2.  
  3. { This action file is called by HANDYKEY.ACT.                   }
  4. { It can also be invoked directly by putting the file name      }
  5. { SENDFILE.ACT into the Communications Paramenter Menu.         }
  6. { This action file first ask the host the name of the file to   }
  7. { send. If the requested file name exists, then the file is sent}
  8. { in ASCII. Otherwise, a message is sent to the host.           }
  9.  
  10. "What file would you like?"   {ask host for file name }
  11. @a=getline                    {get the name into @a }
  12. @b=EXIST(@a)                  {if the file exist, @b is  non zero }
  13. "$0d$0a"
  14. if (@b = 0 ) goto :badfile
  15. if (sendfile(@a, "ASCII") = -1) "Cannot open file$0a$0d";
  16. TYPECR("End of send file")
  17. exit
  18.  
  19. :badfile
  20. "File Not Found$0d$0a";  { tell host: file not found}
  21.